home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / COM.DEF < prev    next >
Encoding:
Modula Definition  |  1991-02-09  |  593 b   |  25 lines

  1. (*%F _fdata *)
  2. (*# call(seg_name => null) *)
  3. (*%E *)
  4. (*# module(implementation=>on) *)
  5. (*# module(init_code=>on) *)
  6. (*# data(seg_name => null) *)
  7. (*# call(o_a_copy => off) *)
  8. (*# check(stack=>off,
  9.           index=>off,
  10.           range=>off,
  11.           overflow=>off,
  12.           nil_ptr=>off) *)
  13. DEFINITION MODULE Com;
  14.  
  15.       (* NOTE: THIS IS AN ABRIDGED VERSION OF COM TO DEFINE PROCEDURES *)
  16.                      (* USED IN FILE TRANSFER PROTOCOLS *)
  17.  
  18. PROCEDURE commChar(): BOOLEAN;
  19. (* TRUE IF character is waiting *)
  20.  
  21. PROCEDURE SendBreak;
  22. (* Sends a break *)
  23.  
  24. END Com.
  25.